procedure GetTime(var hour, minute, second : integer);

Returns the current time.

Also see:  GetDate  TickCount